use Win32;

print MakeGuid() . "\n";

sub MakeGuid {
  my $u = Win32::GuidGen();
  $u =~ s/[{}]//g;
  return $u;
}

